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-- file DIParser.Mesa 
-- last modified by 

Sandman, April 17, 1978 4:01 PM 

Barbara, May 15, 1978 11:13 AM 

DIRECTORY 

DIDefs: FROM "didefs" USING [ 

Atom, ConstOrQual , ESPointer, ParseHandle, Scanlnit, ScanReset], 

DILALRDefs: FROM "dilalrdefs" USING [ 

ActionEntry, ActionTag, AsstlEntry, endmarker, LALRTableHandle, 
lastntstate, Productionlnfo, State, Symbol, SymbolRecord] , 

StreamDefs: FROM "streamdef s" , 

SystemDefs: FROM "systemdefs" USING [AllocateResidentSegment , FreeSegment] ; 

DIParser: PROGRAM 

IMPORTS SystemDefs, DIDefs 
EXPORTS DIDefs SHARES DILALRDefs « 
BEGIN -- Debugger Interpreter parser with no error recovery 
OPEN DILALRDefs; 

InitialState: State « 1; 
FinalState: State ■ 0; 

currentState: State; 

inputSymbol, Ihs: Symbol; 

Defaul tMarker: Symbol « endmarker+1; 

input: PROCEDURE RETURNS [symbol: SymbolRecord]; 
inputLoc: CARDINAL; 
inputValue: UNSPECIFIED; 
ql, top: CARDINAL; 

s: DESCRIPTOR FOR ARRAY OF State; 

1: DESCRIPTOR FOR ARRAY OF CARDINAL; 

v: DESCRIPTOR FOR ARRAY OF UNSPECIFIED; 

h: DESCRIPTOR FOR ARRAY OF DIDefs .ConstOrQual ; 

q: DESCRIPTOR FOR ARRAY OF ActionEntry; 

stackSize: CARDINAL; 
queueSize: CARDINAL; 

-- transition tables for terminal input symbols 

tState: DESCRIPTOR FOR ARRAY OF State; 
asstl: DESCRIPTOR FOR ARRAY OF AsstlEntry; 
tSymbol: DESCRIPTOR FOR ARRAY OF Symbol; 
tAction: DESCRIPTOR FOR ARRAY OF ActionEntry; 

-- transition tables for nonterminal input symbols 

nState: DESCRIPTOR FOR ARRAY OF State; 
nLength: DESCRIPTOR FOR ARRAY OF CARDINAL; 
nSymbol: DESCRIPTOR FOR ARRAY OF Symbol; 
nAction: DESCRIPTOR FOR ARRAY OF ActionEntry; 
nDefaults: DESCRIPTOR FOR ARRAY OF ActionEntry; 

-- production information 

prodData: DESCRIPTOR FOR ARRAY OF Productionlnfo; 

-- initialization/termination 

Parselnit: PROCEDURE 

[string: STRING, tablePtr: LALRTableHandle. ph: DIDefs .ParseHandle] « 

BEGIN 

DIDefs .Scanlnit[string, tablePtr] ; 

BEGIN OPEN tablePtr; 
tState ^ DESCRIPrOR[parsetable.tstate]; 
asstl <- DESCRIPTOR[parsetable. asstl]; 
tSymbol ^ DESCRIPTOR[parseLable. tsym] ; 
tAction ^ DESCRIPTOR[parsetable.tact]; 
nState <-DESCRIPTOR[parsetable .nstate] ; 
nLength ^ DESCRIPTOR[parsetable .nlen] ; 
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nSymbol +■ DESCRIPTOR[parsetabl0.nsym] ; 
nAction ♦- DESCRIPTOR[parsetable. nact]; 
nDefauUs <- DESCRIPT0R[parsetab1e. ntdef auUs] ; 
prodData ♦- DESCRIPT0R[parsetab1e.proddata] ; 
END; 

stackSize +■ queueSize <r O; ExpandStack[64, ph]; ExpandQueue[256, ph]; 

RETURN 

END; 

InputLoc: PUBLIC PROCEDURE RETURNS [CARDINAL] - 
BEGIN 

RETURN [inputLoc] 
END; 

ParseError: PUBLIC SIGNAL [errorLoc: CARDINAL] - CODE; 

SyntaxError: PUBLIC SIGNAL [errorLoc: CARDINAL] - CODE; • 

- the main parsing procedures 

Parse: PUBLIC PROCEDURE 

[string: STRING, table: LALRTableHandle , ph: DIDef s .ParseHandle, 

proc: PROCEDURE [esp: DIDef s .ESPointer] , locals: BOOLEAN] 

RETURNS [complete: BOOLEAN] « 

BEGIN 

i, valid, k. m: CARDINAL; -- stack pointers 

j, jO: CARDINAL; 

tj: ActionEntry; 

input ^ DIDefs.Atom; 

Parselnit[string, table, ph]; 

i ♦- top <- valid +-0; ql <- 0; 

s[0] <- currentState <- InitialState; 

[inputSymbol , inputValue, inputLoc] <- input[] .symbol ; 

WHILE currentState iff FinalState DO 
BEGIN 

jO ^ tState[currentState]; 

FOR j IN [jO .. jO + asstl[currentState].tlen) 
DO 
SELECT tSymbol[j] FROM 

inputSymbol, Def aul tMarker «> EXIT; 
ENDCASE; 
REPEAT 

FINISHED => GO TO SyntaxError; 
ENDLOOP; 

tj <- tAction[j]; 

IF ~tj . rtag, reduce -- scan or scan reduce entry 
THEN 
BEGIN 
IF ql > 
THEN 
BEGIN 

FOR k IN (valid.. i] DO s[k] ^ s[top+(k-val id) ] ENDLOOP; 
ph.qp[ql, top, proc, locals I 

DIDef s. ParseError «> GO TO SyntaxError; 
UNWIND «> BEGIN EraseQueue[] ; EraseStack[]; END]; 
ql ^ 0; 
EXITS 

SyntaxError «> 
BEGIN 

EraseQueue[] ; EraseStack[] ; 
SIGNAL DIDef s.SyntaxError[ inputLoc]; 
END; 
END; 
top *- val id ♦- i «- i + l ; 
v[i] <r inputValue; l[i] ♦- inputLoc; 
[inputSymbol , inputValue, inputLoc] ♦- input[] . symbol ; 
END; 

WHILE tj.rtag ^ ActionTag[FALSE , 0] 
DO 

IF ql >« queueSize THEN ExpandQueue[256. ph]; 
qCql] ^ tj; ql <- ql + 1; 



DIParser.mesa 2-Sep~78 15:32:14 Page 



i ♦- i-tj .rtag.plength; -- pop 1 state per rhs symbol 
currentState ♦- s[IF i > valid THEN top+(i-val id) ELSE (valid <- i)]; 
Ihs ^ prodData[tj . transition]. Ihs; 
BEGIN 

IF currentState <» lastntstate 
THEN 

BEGIN j ^ nStateCcurrentState]; 
FOR j IN [j. . j+nLength[currentState]) 
DO 
IF Ihs - nSymbol[j] THEN 

BEGIN tj ♦- nAction[j]; GO TO nfound END; 
ENDLOOP; 
END; 
tj <- nDefaults[lhs]; 
EXITS 

nfound -> NULL; 
END; 
i ^ i+1; 
ENDLOOP; 
IF (m ^ top+(i-valid)) >■ stackSize THEN ExpandStack[64, ph]; 
s[m] ^ currentState *- tj . transition; 
EXITS 

SyntaxError ■> 
BEGIN 

EraseQueue[]; EraseStack[] ; 
SIGNAL DIDefs.SyntaxError[inputLoc]; 
END; 
END; 
ENDLOOP; 

BEGIN 

ph.qp[ql, top, proc, locals I 

DIDefs.ParseError «> GOTO SyntaxError; 
UNWIND «> BEGIN EraseQueue[] ; EraseStack[] ; END]; 
EXITS 

SyntaxError »> 
BEGIN 

EraseOueue[] ; EraseStack[] ; 
SIGNAL DIDefs.SyntaxError[inputLoc]; 
END; 
END; 

EraseQueue[]; EraseStack[] ; 
RETURN [DIDefs.ScanReset[]] 
END; 

ExpandStack: PROCEDURE [delta: CARDINAL, ph: DIDef s . ParseHandle] » 
BEGIN OPEN SystemDefs; 
i, sS, sL. sV, sH: CARDINAL; 
p: POINTER; 

newS: DESCRIPTOR FOR ARRAY OF State; 
newL: DESCRIPTOR FOR ARRAY OF CARDINAL; 
newV: DESCRIPTOR FOR ARRAY OF UNSPECIFIED; 
newH: DESCRIPTOR FOR ARRAY OF UNSPECIFIED; 
newSize: CARDINAL = stackSize + delta; 
sS <- newSize*SIZE[State]; 
sL <- newSize*SIZE[CARDINAL]; 
sV <- newSize*SIZE[UNSPECIFIED]; 
sH ♦- newSize*SIZE[DIDefs.ConstOrQual]; 
p ^ AnocateResidentSGgiTient[sS+sL+sV+sH]; 
newS <- DESCRIPTOR[p, newSize]; 
newL <- DESCRIPTOR[p+sS, newSize]; 
newV <- DESCRIPTOR[p+sS+sL, newSize]; 
newH <- DESCRIPTOR[p+sS+sL+sV, newSize]; 
FOR i IN [0. .StackSize) 

DO 

newS[i] <- s[i]; 

newL[i] ^ l[i]; 

new\/[i] ^ v[i]; 

newH[i] ^ h[i] 

ENDLOOP; 
EraseStack[]; 

s *- newS; 1 <- newL; v ^ newV; h <- newH; stackSize ^ newSize; 
ph.da[qd:q, vd:v, ld:l, hd:h, pd :prodData] ; 
RETURN 
END; 
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EraseStack: PROCEDURE ■ 
BEGIN 

IF stackSize ff THEN SystemDef s . FreeSegment[BASE[s]]; 
RETURN 
END; 

ExpandQueue: PROCEDURE [delta: CARDINAL, ph: DIDef s .ParseHandle] ■ 
BEGIN OPEN SystemDefs; 
i: CARDINAL; 

newQ: DESCRIPTOR FOR ARRAY OF ActionEntry; 
newSize: CARDINAL ■ queueSize + delta; 
newQ ^ 

DESCRIPTOR[AnocateResidentSegment[newSize*SIZE[ActionEntry]], newSize]; 
FOR i IN [0. .queueSize) DO newQ[i] ^ q[i] ENDLOOP; 
EraseQueue[]; 

q *- newQ; queueSize ♦- newSize; 
ph.da[qd:q, vd:v, 1d:l, hd:h, pd:prodData]; 
RETURN 
END; 

EraseQueue: PROCEDURE ■ 
BEGIN 

IF queueSize ^ THEN SystemDef s . FreeSegment[BASE[q]]; 
RETURN 
END; 

END... 



